<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>


<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
<title>Admin</title>
<style type="text/css">
body {
	
	background: #FFF  ;
	margin-left: 0px;
	margin-top: 0px;
	margin-right: 0px;
	margin-bottom: 0px;
	font-family: Arial, Helvetica, sans-serif;
	font-size:11px;
}
#tipo{
		
		float:left;
	margin-left:6px;
	}
#navegador{
		
		float:left;
	margin-left:7px;
	}

#navegador ul{
   list-style-type: none;
   text-align: center;
}
#navegador li{
   display: inline;
   text-align: center;
   margin: 0 10px 0 0;
   
}
#navegador li a {
   padding: 2px 7px 2px 7px;
   color: #666;
   background-color: #eeeeee;
   border: 1px solid #ccc;
   text-decoration: none;
}
#navegador li a:hover{
   background-color: #333333;
   color: #ffffff;
}
#navegador li .act{
   background-color: #333333;
   color: #ffffff;
}

</style>

<script language=javascript>
function ventanaSecundaria (URL){
   window.open(URL,"ventana1","width=420,height=570,scrollbars=NO")
}
</script>


<script language=javascript>
function ventanaSecundaria2 (URL){
   window.open(URL,"ventana1","width=620,height=570,scrollbars=NO")
}
</script>
<script language="javascript" type="text/javascript">
<!--
function terminar_sesion(){
	window.location.replace("login.asp");
}
//-->
</script>
</head>

<body  >

<!--#include file="cnxBd.asp"--> 
<%


strSQL="Select  * from calc_instaladores2 order by codigo desc"

%>


<%

If Request.QueryString("pag")<>"" Then
   Session("pagina")=Request.QueryString("pag")
Else
   Session("pagina")=1
End If



Const adCmdText = &H0001
Const adOpenStatic = 3


Set Command = Server.CreateObject("ADODB.Command")
Set RS =Server.CreateObject("ADODB.RecordSet")

	RS.Open strSQL,Conn,adopenstatic,adcmdtext

num_registros = 80

'Dimensionamos las paginas y determinamos la pagina actual
RS.PageSize=num_registros
RS.AbsolutePage=Session("pagina")

num_campos=RS.Fields.Count 

%>

<table border="0" width="100%">
  <tr>
    <td align="left"><img src="logo.jpg"  border="0"/></td>
  </tr>
</table>



<table cellspacing="1" cellpadding="0"   align="center"   bgcolor="#FFFFFF"   width="100%"   >
<tr><td height="23" colspan="20"><div id="tipo"><strong>Residencial </strong> </div>
<div id="navegador">
<ul>
<li><a href="listado.asp" >Caso 1</a></li>
<li><a href="listado2.asp" class="act">caso 2</a></li>
<li><a href="listado3.asp">Caso 3</a></li>
<li><a href="listado4.asp">caso 4</a></li>
</ul>
</div>
<strong>&nbsp;&nbsp;</strong></td><td align="left">Pagina :<%= Session("pagina") %>&nbsp;&nbsp;</td></tr>
<tr   bgcolor="#F0F0F0">

  
   
        <th width="39" class="NormalTex"><div align="center"><span>Codigo</span></div></th>
		
		<th width="63" class="NormalTex"><div align="center"><span>Num.Regist</span></div></th>
		
        <th width="68" class="NormalTex"><div align="center"><span>Dirección Proyecto</span></div></th>
		<th width="55" class="NormalTex"><div align="center"><span>Nombre del instalador</span></div></th>
		
		<th width="44" class="NormalTex"><div align="center"><span>Numero</span></div></th>
		<th width="40" class="NormalTex"><div align="center"><span>Distrito</span></div></th>
		
		<th width="40" class="NormalTex"><div align="center"><span>Dirección</span></div></th>
		<th width="40" class="NormalTex"><div align="center"><span>N.Departamento</span></div></th>
		<th width="40" class="NormalTex"><div align="center"><span>Medidor</span></div></th>
		<th width="40" class="NormalTex"><div align="center"><span>Regulador</span></div></th>
		
		<th width="42" class="NormalTex"><div align="center"><span>Cod.Ing</span></div></th>
		
		<th width="57" class="NormalTex" bgcolor="#F0F0F0"><div align="center"><span>Artefacto1</span></div></th>
		<th width="39" class="NormalTex" bgcolor="#F0F0F0"><div align="center"><span>Tramo BC <br>
		(m)</span></div></th>
		<th width="53" class="NormalTex" bgcolor="#F0F0F0"><div align="center"><span>Diametro Nominal BC</span></div></th>
		
		<th width="57" class="NormalTex"><div align="center"><span>Artefacto2</span></div></th>
		<th width="39" class="NormalTex"><div align="center"><span>Tramo BD <br>
		(m)</span></div></th>
		<th width="53" class="NormalTex"><div align="center"><span>Diametro Nominal BD</span></div></th>
		
		<th width="39" class="NormalTex" bgcolor="#F0F0F0"><div align="center"><span>Tramo AB</span></div></th>
		<!--<th width="100" class="NormalTex"><div align="center"><span>Material</span></div></th>-->
		<th width="57" class="NormalTex" bgcolor="#F0F0F0"><div align="center"><span>Diametro Nominal AB</span></div></th>
		
		<th width="54" class="NormalTex"><div align="center"><span>Potencia Nominal<br> (kw)</span></div></th>
		<th width="88" class="NormalTex"><div align="center"><span>Longitud Equivalente</span></div></th>
      </tr>


 <%

registros_mostrados = 0
While (Not RS.eof And registros_mostrados < num_registros)
   registros_mostrados = registros_mostrados +1
   
   If contador Mod 2 = 0 Then %>
          <tr  bgcolor="#FFFFFF">
            <% Else %>
          
		  <tr      bgcolor="#E5E5E5">
            <% End If 
%> 
  
   <%
  ' fechah=RS("fechah")

'dh=Day(fechah)
'mh=Month(fechah)
'ah=Year(fechah)
   
    %>
      
   <td class="NormalTex" align="center"><div align="center"><%=RS("codigo")%></div></td>
		
		<td class="NormalTex" align="center"><div align="center"><%=RS("nregistro")%></div></td>
		
        <td class="NormalTex" align="center"><%=RS("nombre1")%></td>
		<td class="NormalTex" align="center"><%=RS("nombre2")%></td>
		
		<td class="NormalTex" align="center"><%=RS("numdirec")%></td>
		<td class="NormalTex" align="center"><%=RS("disdirec")%></td>
		
			<td class="NormalTex"><%=RS("regulador")%></td>
				<td class="NormalTex" align="center"><%=RS("direccion2")%></td>
					<td class="NormalTex"><%=RS("medidor")%></td>
						<td class="NormalTex" align="center"><%=RS("num2")%></td>
		
		<td class="NormalTex" align="center"><%=RS("coding")%></td>
		
		
		<td class="NormalTex"><%=RS("artef1")%></td>
		<td class="NormalTex" align="center"><div align="center"><%=RS("tramobc")%></div></td>
		<td class="NormalTex" align="center"><div align="center"><%=RS("diametrobc")%></div></td>
		
		<td class="NormalTex"><%=RS("artef2")%></td>
		<td class="NormalTex" align="center"><div align="center"><%=RS("tramobd")%></div></td>
		<td class="NormalTex" align="center"><div align="center"><%=RS("diametrobd")%></div></td>
		
	<td class="NormalTex" align="center"><div align="center"><%=RS("tramoab")%></div></td>
		<td class="NormalTex" align="center"><div align="center"><%=RS("diametroab")%></div></td>
      <td class="NormalTex" align="center"><div align="center"><%=RS("potencian")%></div></td>
	  <td class="NormalTex" align="center"><div align="center"><%=RS("longitude")%></div></td>
</tr>   
<%
   RS.MoveNext
   contador=contador+1
Wend
%>
<tr bgcolor="#FFFFFF">
<td height="35" colspan="21" align="center"><%
   i=0
While i<RS.PageCount 
   i=i+1
%>
  <b><a href="listado2.asp?pag=<%=i%>"><u><%=i%></u></a></b>
  <%
Wend
%></td>
</tr>
</table>


  
  
  <br>
  <br> 
    
    
</p>


</div>

</body>
</html>
